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Editorial 

Dear Member, 

Newly released from M M ELECTRONICS is a bulletin board software package 
specifically for the INTERAK computer. It is called INTERPLAY and comes 
complete with hardware details and full documentation. The program is 
individually customised to suit the needs of the end user. Contact M & M 
ELECTRONICS, 8 Ayre view, Bride, Isle of man for further details. It retails 
for £4.00p. H a M ELECTRONICS are also willing to start a bulletin board if 
sufficient people are interested. 

When you draw diagrams 1 wonder if you would try to make my job a little 
easier. If you follow the guidelines below it will allow me to use your 
drawing direct, this gives accuracy, saves time and adds individuality to the 
newsletter. 

Use A4 white paper with a 1.5 inch margin around all four sides. 

Use a black pen or felt tip. 

Put drawings on a separate sheet from the text. In the text indicate where 
each drawing should be placed. 

Bob 


MODIFICATION TO THE PROGRAMMABLE CHARACTER GENERATOR 

BY MEL SAUNDERS 

Having built the PCG (programmable character generator) sometime ago, I have 
resently had a bit of a problem having obtained a copy of the Rakovsky chess 
program and EPROM. 

The problem was when I needed the PCG the chess eprom was plugged into the 
VDU-K or the PCG was connected when I needed the chess EPROM. It was apparent 
that before to long sockets would ware and pins would bend, a shame really as 
there's lots of space on the PCG card. 

What I did was to add a 74LS138 decoder addressed at 30H, this in turn latched 
the lower 3 data bits into a 74LS273, the 3 outputs then going to the A, B and 
C inputs of another 74LS138 (Tie enables high or low as nessasary). The 
select outputs are then used to select the PCG (Ram 6116), this is the default 
select '0', or the Eprom by OUT £30,01 or ZYMON P 30 01. 

As there is still room on the PCG card for about 4 eproms it is possible to 
have many special sets of charaters to suit your needs. 




PCG RAM 6116 
CHESS EPROM 
SPECIAL CHARS 
SPECIAL CHARS 
etc 
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r V plag correction sub routine 

BY JOHN.D.RITCHIE 

This routine was written to correct an apparent anomaly in the Z90 flag 
register, as displayed by Zymon, when machine code programs are being written, 
de-bugged and run. y i 

. Books about the Z80 refer to the flag register as being an 
which six bits are used by the computer. That is bits 
0,1,2,4,6 & 7. Bits 3 !( 5 are rarely commented on. 

INSTRUCTION HANDBOOK’ Nat Wadsworth, states on page 1-27 of that 
publication, Jhst bits 3 & 5 are not used and are allways zero!. This 
excellpt and highly recommended book was published in 1978 and therefore may 
70 f»' time have been correct in this instance. However, two current issue 
Z80 s from seperate manufacturers have indicated that not only can these flags 
set, but that they often are. This can make deciphering Zymon's Hex 
presentation of the flag register confusing and difficult. 

... u r r 1 . • , . Hence this program, 

which effectively clears the offending flags as far as the programmer is 
concerned! but re-asserts the Z80's status-quo before exiting. The 
accompanying ready-reckoner makes the checking of flags a moments work. 

FLAG CORRECTION SUB ROUTINE, version 2 


ADDR 

OP- 

'CODE 

0900 

3A 

CE 

0F 

0903 

F5 



0904 

E6 

D7 


0906 

32 

CE 

0F 

0909 

CD 

B2 

05 

090C 

FI 



090D 

32 

CE 

0F 

0910 

C9 



0911 

E5 



0912 

21 

00 

09 

0915 

22 

59 

00 

0918 

22 

D7 

01 

091B 

El 



091C 

FF 



Try 

thi3 with 

reckoner. 


Noti 

note 

ADDR 

the 

OP- 

flags. 

•CODE 

0800 

3E 

80 


0802 

ED 

44 


0804 

00 



0805 

3E 

00 


0807 

ED 

44 


0809 

00 



080A 

2F 



080B 

00 



0800 

3F 



080D 

00 




MNEMONIC 
LD A, (0FCE) 
PUSH AF 
AND D7 
LD (0FCE) ,A 
CALL 05B2 
POP AF 
LD (0FCE),A 
RET 

PUSH HL 
LD HL,0009 
LD (0059),HL 
LD (01D7),HL 
POP HL 
TERMINATOR 


REMARKS 

LD A WITH GHOST FLAGS 

SAVE GHOST AND CPU FLAGS 

MASK OFF SPURIOUS FLAGS AND ... 

.. PUT RESULT IN GHOST FLAGS REGISTER 
PRINT GHOST REGISTER SET 
RESTORE ORIGINAL CPU AND ... 

.. GHOST FLAGS 
THEN RETURN 
SAVE HL 

LOAD HL WITH SUB ADDRESS 
MODIFY "PRINT REGISTERS CALL" 

ADDRESS TO NEW VALUE, THEN .... 

... RESTORE HL AND .... 

.. STOP 


FLAG CORRECTION SUB ROUTINE TEST PROGRAM 
and without correction sub-routine while using ready- 
Step through the program stopping at the NOP'S and 


MNEMONIC 
LD A,80 
NEC 
NOP 

LD A,00 

NEG 

NOP 

CPL ACC 
NOP 
CCF 
NOP 


REMARKS 

TWO'S COMPLEMENT ACCUMULATOR 

TWO'S COMPLIMENT ACCUMULATOR 
COMPLIMENT ACCUMULATOR 
COMPLIMENT CARRY FLAG 


FLAG CORRECTION SUB ROUTINE - HOW IT WORKS. 

The routine has two entry points, at 005B and 01D6 (These are the entry points 
for the Print ghost registers' sub routine, which is now called from the flag 
correction sub routine), and these have had 0900 inserted as the new call 
address. 

The first action of the sub routine is to load the accumulator (A) with the 
contents of the ghost flag register (memory location 0FCE). 

Next the ghost flags in (A) and the CPU flags, in the flag register (F) are 
saved on the stack. The ghost register flags are still in the accumulator 
even though a copy is now on the stack; and can therefore be manipulated bv 
anding' it with D7 hex. That is 11010111. 

... ^ ^ When this binary number is 'anded' 

with the contents of the accumulator, the bits of the accumulator are compared 
with the bits in the number. 

, ,, , If both are 'one' (1) then a 'one' is left in that 

location in the accumulator. If either bit is 'zero' (0) then a ‘zero' is 
left in that location. 

The result in this case is that regardless of the state 


3 



Interaktion User Group Newsletter 


Number 10 - January 1996 


of the flags, flags 3 and 5 are allways 'anded' with ‘zero' and are therefore 
always 'zero' after this instruction. With the corrected result in the 
accumulator, the contents of the accumulator can now be copied into the ghost 
flag register at 0FCE. 

The 'Print ghost registers' sub routine is now called, and displays the 
registers including the corrected flags. 

On return from the sub routine execution continues at 090C with the 
restoration of the original CPU and ghost flags, which are popped off the 
stack. 


The ghost flags then being loaded back into memory at 0FCE. 

This last part is a belt and braces policy to ensure that the routine is 
entirely transparent to the operating system} so that if the CPU does use 
flags 3 and 5 they are restored, just before leaving the routine, to the same 
state they held on entry, in both the CPU and memory. 

Once the routine has been entered at 0900, and the sub routine addresses 
altered at 0058 and 0196, Zymon can be used as normal, with the bonus that, 
with the aid of the ready-reckoner, you can now directly read the flag status. 

FLAGS READY RECKONER 


S«SIGN Zs^ZERO H*HALF-CARRY PV«PARITY/OVERFLOW N=ADD/SUB C«CARRY 


F 

07 

06 

05 

04 

El 

02 

01 

00 


F 

07 

06 

h—l 

05 

04 

03 

02 

01 

00 

HEX 

S 

Z 

X 

AH 

m 

FV 


C 


HEX 

S 

Z 

X 

''H 

X 

PV 

''N 

C 

00 



■ 

■ 

■ 


■ 



80 

«» 








01 



■ 

■ 

■ 





81 

** 







«» 

02 



■ 

■ 

■ 





82 

** 






»» 


03 



■ 

■ 

■ 


l!l!l 

in 


83 

»» 







*» 

04 



■ 

■ 

■ 

** 

mu 

mi 


84 

** 





«« 



05 



■ 

■ 

■ 


^B 



85 

»« 





f * 


»» 

06 



■ 

■ 

■ 


l!l!l 



86 






«« 

«« 


07 



■ 

B 

■ 

B 

D 

D 


87 

** 





«» 

«» 

«« 

HEX 

S 

B 

X 

B 

B 

PV 

B 

E 


HEX 

S 

Z 

X 

"'H 

X 

PV 

-N 

c 

10 


B 

B 

D 

B 

■ 

■ 

B 


90 

«« 



«» 





11 


■ 

■ 


■ 



l!lll 


91 

«« 







«» 

12 


■ 

■ 

Qj 

■ 



mu 


92 

»« 



*» 



** 


13 


■ 

■ 


■ 



l!l!l 


93 

f » 



»* 



#» 

*« 

14 


■ 

■ 

IQ 

■ 


mu 

mi 


94 

** 



** 


*« 



15 


■ 

■ 


■ 



Kill 


95 

** 



»« 


** 


«« 

16 


■ 

■ 


■ 





96 

** 



** 



»» 


17 


B 

B 

D 

B 

Bl 

D 

Q 


97 






«« 



HEX 

S 

B 

X 

B 

B 

m 

B 

E 


HEX 

s 

Z 

X 

''H 

X 

PV 

■"N 

c 

40 



B 

B 

B 

_ 

B 



C0 


** 







41 




■ 

■ 





Cl 


«« 







42 




■ 

■ 





C2 


»« 





«» 


43 


«« 


■ 

■ 



** 


C3 

«« 

»« 





** 

** 

44 


«•« 

■ 

■ 

■ 


mu 



C4 

«« 

** 




«» 



45 


** 

■ 

■ 

■ 





C5 

«« 

«« 







46 



■ 

■ 

■ 

R1 




C6 


** 




** 

*« 


47 



B 

B 

B 

Q| 

|y 



C7 

** 

»« 





»« 


HEX 

8 

z 

X 

^H 

X 

PV 

"'N 

C 


HEX 

s 

z 

X 

^H 

X 

PV 

AN 

c 

50 


** 








D0 


»« 


*« 





51 










D1 

»» 







»« 

52 




** 



** 



D2 

»« 








53 




** 




»» 


D3 

«« 



** 



«# 

«« 

54 


»* 


»« 


*« 




D4 




** 


«» 



55 


** 


** 


** 




D5 




«# 


«» 



56 


«* 




** 

** 



D6 

>« 

»« 


«« 


*» 



57 




** 


** 


»# 


D7 

** 



** 


«# 

** 



N.B FLAGS THAT ARE NOT ACCESIBLE TO THE PROGRAMMER 
X DENOTES FLAGS THAT ARE NOT USED BY THE CPU. 
"SET" FLAGS FOR A GIVEN "F" ARE INDICATED BY "»*" 
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RECORD LIBRARY PROGRAM 
BY F.R.JOHNSON 


FOR 64-COL XTAL BASIC 

THIS PROGRAM IS THE WINNER OF THE GREENBANK SOFTWARE COMPETION. 

specifically to catalogue my record collection 
iifLli ! A L9Pf ^ y ^ structured, so that it might easily be 


. , ,r ^i.iuv.t.uicu, au umbl XL IMXUll 

modified for other file type programs such as stamp collections, 
addresses etc. 

F.R.Johnson 


names and 


20 ^Ifl*************************************»**»****»*• 

30 REM RECORD LIBRARY PROGRAM 
40 REM 

50 REM WRITTEN BY F.R.Johnson 
60 REM 

70 REM**»#»»##***#»##»*#*#»**#**##*#»*»#»»»»»**»#»*»** 

80 REM 

90 80SUB 4740:REM Initialis !< draw titles. 

100 FOR WHILE=0 TO IsREM Simulates 
110 GOSUB 170:REM WHILE/WEND 

120 NEXT WHILEiREM structure. 

130 ENDiREM Short program eh? 

140 REM 

160 REM 

170 REM MAIN MENU 
180 REM 
190 CLS 

a?S2 L1 = 7:L2=10;L3=13!L9=16}Y*13:EXIT* = "EXIT PROGRAM"! 

'2iriF''NLS's>0‘THEN U =Tl^ = 5[l3 = 7: ^ = 2^ ‘ 

230 for Ua46 TO 79:SET U.43:NEXT!REM Underlining. 

240 IF NLPS=0 THEN PRINtI?!, 3}"{ No data available >": 
PRINTe21,4:MUL$(CHR$(45),21) 

250 PRINT@5,Llj"LOAD DATA FROM CASSETTETAB(58,46)1" 

260 PRINTQ5,L2jADD$jTAB(58)"2" 

270 PRINT@5,L3!EXITi;TAB(58)!"3" 

inn THEN 350:REM No data - Reduce menu size. 

290 PRINT@5,9;"LIST ALL RECORDS BY AN ART I ST";TAB(58):"4" 

300 PR NT@5,11|"LIST ALL RECORDS IN A SECT ION^TAB(Ssi}"5" 

^ RECORD TITLE ^ LI^T ALL l/lFORMATION" 

}I Ad(58)I'6 

320 PRINTSS,15}"LIST RECORDS (IN ANY ORDER)TAB(50)}"7" 

330 PRINTe5,17}"DELETE RECORDS FROM THE LIBRARY"}TAB(58)}"8" 

340 PRINT@5,19}"AMEND RECORD DATA"}TAB (58); "9 
350 PRINTa5,L9:EC$:TAB(58)} 

360 CALL &Bc 0!REM H/C Border. 

370 CHOICE*INCH 

380 IF CHgiCE<&3I OR CHOICE>8(39 THEN 370:REM 1st idiot trap. 

?t!S CH0ICE>&33 THEN 370:REM Reduced size mentl. 

5?2 GOSUB 4020,1040,4420,450,450,450,1000,3190,3500 

410 WHILE = STflTUSiRETURNiREM iheck 'WHIllE/wfND' loop, 

430 REM**t##*»*»»**»#»»»#**»###»***»#*»****ji***j.**»,^*#****## 

440 REM 

550 RFM SEARCH FOR RECORD(S) (Artist, section or title) 

460 REM 

470 SEARCH=CH0ICE-«(34: REM Convert CHOICE to 0,1 or 2. 

480 LP=0:REM Line count. 

490 FIRST=0!REM Ist record found flag. 

500 FOUND=0:REM Abortive search flag, 

?i2 "SEARCH RECORD LlBRARY":PRINT!PRINT 

520 FOR U=44 TO 85:SET U,43:NEXT 
530 PRINTS20,4;" (Enter 'M' for main menu)":PRINT 
540 PRINT "Enter ":LEFTI(PI(SEARCH+1),15)} 

550 INPUT" "}QUERYI 

560 IF QUERY$="M" THEN RETURN 

570 IF SEARCH=0 OR SEARCH^l THEN PRINT:PR1NT 

580‘'Q6E°^f, = L^Ril&?:i0r**"“’"“' PRT = 1:ELSE PRT = 0 

590 REM CHECK Ist 10 characters only. 


5 



Interaktion User Group Newsletter 


Number 10 - January 1986 


600 IF PRT*1 THEN GOSUB 780jGOrO 720:REM Print routine. 

610 FOR S=1 TO NLPS 

620 IF QUERY*=LEFr$(LP$(S,SEARCH),10)THEN F0UND=S: 

IF FIRST=0 THEN FIRST=1:HEAD=0jGOSUB 3870!REH Screen headings. 

630 IF FaUND = S THEN PRINT TAB(1,46)jLP$(S,0):TAB (21))LPf (S,1)jTAB (35): 
LPI(S.2):TAB(58)|S!LP=LP+l!B0SUB 710:REM Paging. 

640 If SEARCH=2 and FOUND-S then GOSUB 890:GOTO 650} 

REM Only one record to find. 

650 NEXT S 

660 IF FOUND = 0 THEN PRINTjPRINT LEFT! (P$(SEARCH + 1), 15);"not found" 

670 PR INT: PR INT "Another search ? ('';Y$;''e5 or '':N$;"o)'j 
680 QUERY$=INCH$ . » » 

690 IF QUERY$«"Y" THEN 480 
700 RETURN 

710 IF LP MOD 18 = 0 THEN PRINTtPRINT RL$:P=INCH:PR I NT:REM Paging 
720 RETURN 
730 REM 

750 REM 

760 REM PRINT ALL RECORDS BY ARTIST OR IN SECTION 
770 REM 

700 GOSUB 1600;REM Set up printer. 

790 FDR S=1 TO NLPS 

800 IF QUERYJ=LEFT$(LPI(S.SEARCH),10)THEN PRINT TAB(10):LPI(S,0); 
TAB(32):LPI(S,l);TAB(48);LP$(S,2);TAB(73 )jS 
810 NEXT S . 1 . , 

820 SPEED 255 
830 PRINTED 
840 PRT=0 
850 RETURN 
860 REM 

880 REM 

890 REM DISPLAY ADDITIONAL INFORMATION 
900 REM 

910 PRINT@0,14}"ADDITIONAL INFORMATION" 

920 FOR U=0 TO 43:SET U,17;NEXT 

930 IF LPI(S.3) = "" THEN PR I NT:PRINT"None"JGOTO 950 

940 PRINT;PR1nT LP$(S,3) 

950 S=NLPS:REM Terminate loop. 

960 RETURN 
970 REM 

990 REM 

1000 REM LIST RECORDS MENU 
1010 REM 
1020 CLS 

1030 PRINT@24,2,"LIBRARY LIST" 

1040 FOR U=48 TO 71}SET U,41}NEXT 

1050 PRINT@5,6} "CHECK AND/OR CHANGE ORDER OF L1STING"}TAB(58)}"1" 

1060 PRINT@5,9} "DISPLAY ON SCREEN"}TAB(58)!"2" 

1070 PRINT@5,12} "LIST TO PR INTER"} TAB (58) s ^’3" 

1080 PRINT@5,15}RM$;TAB(58)}"4" 

1090 PRINT@5,18}EC$}TAB(58) 

1100 CALL &800:REM BORDER 
1110 CHOICE=INCH 

1120 IF CH0ICE<J<31 OR CH0ICE>!<34 THEN 990 

1130 ON CHOICE-S<30 GOSUB 1 190,1280,1480,1 150 

1140 IF CH0ICE = «<31 THEN 1020:REM Stay with LIST menu. 

1150 RETURN 
1160 REM 

1170 REM»**»**»***»*»*#»#*******#**»***#***»»*»*#*****»»*#* 

1180 REM 

1190 REM LIST ORDER 
1200 REM 

1210 IF ST=~1 THEN ST=0:REM Data loaded in artist order. 

1220 CLS:PRINT@4,4} "The data is sorted in ''}STi(ST):" order " 

1230 GOSUB 2670:REn Option to change order, but done change ST. 

1240 RETURN 
1250 REM 

1260 REM#*»*»#***»»*####**#*****#*«****»**#**»*******»**»## 

1270 REM 

1280 REM LIST TO SCREEN 
1290 REM 
1300 CLS 

1310 PRINT@24,1;"LIBRARY LIST" 

1320 FOR U=48 TO 71:SET U,43:NEXT 
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1330 LP=0 

1340 PRINT@0,4j"There are "jNLPS 5 "records in the library, 
press any key to list"; 

1350 PAUSE*INCH 
1360 CIS 

1370 HEAD=1:G0SUB 3870:REM Change screen headings position. 

1360 FOR L=1 TO NLPS 

TAB(l,46)jLP$<L,0);TAB(21)jLP$(L,l)}TAB(35)}LP$(L,2); 

TAB (JO)IL 

1400 LP=LP+1:REM Page count. 

18 = 0 THEN PRINTrPRINT RLIj" or 'H' for main menu"! 
PAUSE$=INCH$iCLS!HEAD=l!GOSUB 3870 
1420 IF PAUSE$="M" THEN L=NLPS!NEXT L:PAUSE$="": 
return !REM Terminate loop and return to main menu. 

1430 NEXT L 

1440 PRINTsPRINT M$j 

1450 PAUSE=INCH 

1460 RETURN 

1470 REM 

1480 

1490 REM 

1500 REM LIST TO PRINTER 
1510 REM 
1520 CLS!LP=0 

1530 PRINTSH,10;"THERE ARE "}NLPS!"LP'S IN THE LIBRARY" 

1540 PR1NT@14,12?"ENTER LP NO. TO START PRINTING FROM 
1550 INPUT R1 

1 560 IF RUl OR Rl> NLPS THEN 1540 

1570 PRINT@14 ,14;"ENTER LAST LP NO. TO PRINT 

1580 INPUT R2 

1590 IF R2<1 OR R2> NLPS THEN 1570 
1600 CLS 

1610 PRINT@0,10;"Ready printer - press any key" 

1620 PAUSE=INCH 

1630 PRINTSO,13;"Printing data ..." 

1640 SPEED 100}REM Slow printer! 

1650 PRINTElsREM Output to printer. 

1660 PRINT TAB(10,32};"LP RECORD LIBRARY LIST" 

1670 PRINT:PRINT 

1680 IF PRT=1 AND SEARCH=0 THEN PRINT TAB(10)}" 

ALL RECORDS BY AN ART I ST"sPR I NT!PR I NT 
1690 IF PRT=1 AND SEARCH=1 THEN PRINT TAB(I0);" 

ALL RECORDS IN A SECT I ON"!PR I NT!PR I NT 
1 700 PRINT TABU0) ; "ARTISTS NAME"; TAD (32) ;" 

LP SECTION";TAB(48);"LP TITLE";TAB(73);"LP N0."sPRINT 
1710 IF PRT=1 THEN RETURN 
1720 FOR L=R1 TO R2 

1 750 IF LP MOD 80 = 0 THEN PRINTsPR INTiPRINT!PR I NTsREM Paging. 

1760 NEXT L ^ ^ 

1770 SPEED 255 

1780 PRINT£0!REM Print to screen. 

1790 RETURN 
1800 REM 

1810 REM***»»****»»»#***»*»»JHnnf»*»***»****»*#»#»*#»##*****»* 

1820 REM 
1830 REM 

1840 REM ADD OR AMEND RECORDS 
1850 REM 
1860 CLS 

1870 QUERV$=""{REM Reset edit flag. 

1880 PRINT@21,2:"ADD/AMEND RECORDS"!PRINT:PRINT 
1890 FOR U=42 TO 75:SET U,41:NEXT 

1900 IF AMD=0 AND NLPS=MAXLPS THEN PRINT"Sorry, the library is full": 
PRINT!PRINT M$;!PAUSE=INCH!RETURN 
1910 PR INT@ 10,4;"(Press CTRL + R to Return to main menu)" 

1920 FOR PN=1 TO 4 !REM Print 

1930 PRINT@0, (PNf2)*2;P$(PN)!REH the 
1940 NEXT PN :REM fields. 

1950 IF AMD=1 THEN GOSUB 2520!GOSUB 3780!GOTO 1980 

1960 REM In amend mode - print edit info Sc data in fields. 

1970 PRINT@0,16;"Enter the data and press 
RETURN to move to the next field." 

1980 FOR R0W=6 TO 12 STEP 2 :REM Cursor 

1990 FOR COLUMN=20 TO L(ROW/2-2)+20!REM position 
2000 PRINTS COLUMN,ROW; ;REM routine. 
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2010 D$=INCHt 

2020 IF D$=CHR$(ia) THEN RETURN:REM CTRL+R 
2030 IF COLUMN=LIROW/2-2)+20 THEN IF D$<>CHR$(13) 

AND D»<>CHR$(8) AND D$<>CHR$(28) THEN 2010;REM Overflowing field. 

2040 IF DI=CHR$(13) THEN 2150:REM Down in enter data mode. 

2050 IF D*=CHR^(13) OR D$=CHR*(10) OR D$«CHR$(31> THEN 2150? 

REM Down - using OR, CTRL+J or DOWN arrow, 

2060 IF D$=CHR|(11) or D$=CHR$(30) THEN IF R0W>6 THEN R0W=R0W-2! 

GOTO 2000:REM Up-using CTRL+K or UP arrow. 

2070 IF D$=CHR$I8 ) OR D$»CHR«(28) THEN IF COLUMN>20 
THEN C0LUMN=C0LUMN-1jG 0T0 2000:REM Left - using BS or LEFT arrow. 

2080 IF D$«CHR$i6) OR D$=CHR$(29) OR D$=CHR$(2l) 

THEN IF COLUMN< L (ROW/2-2) +19 THEN COLUMN = COLUMN + l:GOTO 2000:REM Right. 
2090 REM Right - using CTRL+F, RIGHT arrow or MY RIGHT arrow! 

2100 IF DI=CHR$(24) THEN GOSUB 2430:GOTO 2150:REM Remove junk. 

2110 IF DIs"." THEN 2010tREM Dots not allowed in data. 

2120 IF D$<CHRI(32) THEN 2010 
2130 PRINT D$: 

2140 NEXT COLUMN 
2150 NEXT ROW 

2160 PRINT@0,14j"Is the above data correct (";Y$}"es or ";N*i''o)"; 

2170 QUERY$=InCHI 
2180 PRINTe0,14;SPC(60) 

2190 IF QUERY$ = ^'N'‘ THEN GOSUB 2520:GOTO 1980:REM Print edit 
info' and re-position cursor for ammendment. 

2200 REM 

2220 REM 

2230 REM EXTRACT DATA FROM SCREEN 
2240 REM 

2250 FOR PN=1 TO 4 :REM Extract data 

2260 SN$(PN)»MID$(SCRNi((PN+2)*2),21,L(PN)):REM from screen. 

2270 FOR LS=1 TO LEN(SN$(PN)) 

2280 IF MID#(SN$(PN),LS,1}*"." THEN D0T»LSsLS=LEN(SN$(PN))» 

SNI(PN)=LEFT$(SN$(PN),DOT-1);REM Found Ist dot - remove them all. 

2290 NEXT LS 

2300 IF AMD=*1 THEN LP$ (RN, PN-1) =SNI (PN>: ELSE LPI (NLPS + 1, PN-1 > *SN$ (PN): 
REM Enter data into main array. 

2310 NEXT PN 

2320 IF AMD=1 THEN RETURNsREM Amend mode. 

2330 NLPS=NLPS+l!REM Add 1 to total. 

2350 PRINT@0,14! "Any more to add? ("!YI)''e5 or ''!N$i"o)"; 

2360 QUERY$=iNCH# 

2370 PRINTe0,14|SPC(60) 

2380 IF QUERY$<>"N" THEN 1840 
2390 GOSUB 2630SREM Sort array. 

2400 RETURN 
2410 REM 
2420 

2430 REM 

2440 REM REPLACE UNWANTED CHARACTERS WITH DOTS 
2450 REM 

2460 FOR DOT = COLUMN TO L (ROW/2-2)+ 19 
2470 PRINTS DOT,ROW)".") 

2480 NEXT DOT 
2490 RETURN 
2500 REM 
2510 

2520 REM 

2530 REM EDIT INFORMATION 
2540 REM 

2550 PRINT00,18)"To edit the data use the ARROW keys or the screen 
editor codes" 

2560 PRINT"to position the cursor. Overwrite the data and press RETURN 
to enterthenewdata,") 

2570 PRINT" Press CTRL+X to erase unwanted characters from the 
cursor position to the end of the field." 

2500 PRINT'MOther screen editor commands, CTRL+B etc,are not allowed)." 
2590 RETURN 
2600 REM 
2610 

2620 REM 

2630 REM WHICH ORDER TO SORT 
2640 REM 
2650 CLS 

2660 ST=-l!REM Reset sort flag. 

2670 PRINTS4,6) "Do you wish to sort the data into!- '')AI)"rtist order? 


8 



Interaktion User Group Newsletter 


Number 10 - January 1986 


2680 PRINTe40,8:SI}"ection order? 

2690 PRINT@40,10;Tt!"itle order? 

2700 PRINT@40,l2:N$}'’o change? 

2710 PRINt@4,145 ^'Press one of the highlighted keys 
2720 PR1NT@3,1 65 "(A change of order will take approximately "5 
INT(NLPS/ 10 )»l 0 +i 05 "seconds)" 

2730 PRINTe40,14: 

2740 QUERY$=INCHI 

2750 IF QUERY$ = "A'' THEN ST = 0:REM Set the sort 

2760 IF QUERY$="S" THEN ST=lsREM flag Tor the 

2770 IF QUERY$="T" THEN ST=2:REM SORT routine. 

2780 IF QUERY$="N" THEN RETURNsREM No sort required. 

2790 IF ST=*-1 THEN 2740:REM Wrong key pressed. 

2800 REM 

2810 REM»»******»*****»****»******************»**#***»**«***** 

2820 REM 

2830 REM SORT ARRAYS (QUICKSORT) 

2840 REM 

2850 PRINT@ 3 , 185 "Sorting data into ";ST$(ST);'' order." 

2860 STACK (0,0) *=0: ST ACK(0,1)=NLPS:SP«0 
2870 IF SP<0 THEN RETURN 

2880 P1=STACK(SP,0)JP2=STACK(SP,1):SP=SP-1 

2890 FOR P**0 TO 3: PT$ (P) =LP$ (PI, P): NEXT P; OLDPl =P 1: 0LDP2 = P2: P2 = P2+1 
2900 P2»P2"1:IF P2=*P1 THEN 2940 

2910 IF LP$(P2,ST)<PT$(ST) THEN 60SUB 3000:GOTO 2920!ELSE GOTO 2900 
2920 P1*P1+1:IF P1=P2 THEN 2940 

2930 IF LP$(P1,ST)>PTI(ST) THEN GOSUB 3090:GOTO 2900;ELSE GOTO 2920 
2940 FOR P»0 TO 3:LPf(PI,P)=PT$(P )1 NEXT P 

2950 IF OLDPKPl-l THEN STACK (SP + 1,0) *OLDPl: STACK (SP +1,1) =P 1 * 1: SP = SP + 1 
2960 IF P2 + 1<0LDP2 THEN STACK (SP^’l, 0) *P2 + 1: STACK (SP +1,1) *0LDP2 s SP*SP + 1 
2970 GOTO 2870 
2980 REM 

2990 REM»*<^********* ****** ****** 

3000 REM 
3010 REM P1=P2 
3020 REM 

3030 FOR SW=0 TO 3 

3040 LP$(Pl,SW)sLPI(P2,SW) 

3050 NEXT SW 
3060 RETURN 
3070 REM 

3080 REM************************ 

3090 REM 
3100 REM P2*P1 
3110 REM 

3120 FOR SWs:0 TO 3 

3130 LPI(P2,SW)*LP*(P1,SW) 

3140 NEXT SW 
3150 RETURN 
3160 REM 

3170 REM****************************************************** 

3180 REM 

3190 REM DELETE LP ENTRY 
3200 REM 

3210 IF NLPS=0 THEN CLS:PRINTeS,1s"No records in library - press 
'M' Tor main menu":PAUSE=INCHsRETURN 
3220 CLS:PRINT@25,l5"DELETE ENTRY":PR I NT:PRINT 
3230 FOR U=50 TO h:SET U,43:NEXT 

3240 IF DU*"N" OR D2$»"Y^ THEN 3290:REM Jump over instructions 
2 nd time. 

3250 PRINT@ 0 , 45 " (When deleting a series of records start at the 
highest number" 

3260 PRINT"a 5 records are shiTted back after deletion. Press any 
key now)" 

3570 PAUSE*INCH 

3280 PRINT@0,45SPC(12B) 

3290 DLT=1;G0SUB 3550:REM Set DELETE flag k search file. 

3300 IF RN=0 THEN RETURN:REM Record not found. 

3305 HEAD^0:GOSUB 3870:REM Headings. 

3310 PRINT TAB(l,46))LP$(RN,0)5TA§(21);LP$(RN,l)5TAB(35)|LPf(RN,2); 
TAB(58)5RN 

3320 PRINT:PRINT"l 5 this the correct record to delete? (" 5 YI}"es or 
";N$ 5 "D )"5 
3330 DU = INCH$ 

3340 IF D1$<>"Y" THEN 3220 

3345 PRINT:PRINT:PRINT"Record 5 being shifted - please wait" 

3350 FOR SH=RN+1 TO NLPS ;REM Shift 
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3360 LP$(SH-l,0)=LP$(SH,0):REf1 records 
3370 LP*(SH-l,l)=LP$(SH,l)iREM back 
3380 LP$(SH-1,2)=LP$(SH,2):REM one 
3390 NEXT SH sREM position. 

3400 NLPS=NLPS-1:REM 1 less. 

3410 PRINTsPRINT "Record deleted" 

3420 PR I NT; PR I NT "Any more to delete? (";Y$;''e5 or '';NI}"o)": 

3430 D2$=1NCH$ » » > 

3440 IF D2$="Y" THEN 3210 

3450 DLT=0sD 1$="":D2$=""!REM Reset flags. 

3460 RETURN 
3470 REM 

3480 REM»»*»»*»#**»***#**»**#**#*##fr#*»»**»*#»»»#»#*»#♦♦***##* 

3490 REM 

3500 REM AMEND RECORDS 
3510 REM 
3520 CLS 

3530 PRINT824,2j"AMEND RECORD DATA" 

3540 FOR U=48 TO 81:SET U,41:NEXT 
3550 RN=0 

3560 PR INTSl3,4;" (Enter 'M' to return to main menu)" 

3570 PRINT 

3580 INPUT"Enter record number,(Enter 'N' if number not known) "{RN$ 
3590 IF RN$="N" THEN PRINT;PRINT"Press any key for the main menu & 
USB option 6 or 7 PAUSE*INCH:RN$="M" 

3600 IF RN$*"M" THEN RN=0:RETURN 

3610 IF VAKRNIXl OR VAL(RNI)> NLPS THEN PRI NT! PR INT"Recor d not 
found, press a key"j:PAUSE*INCH;RETURN 
3620 RN*VAL(RNI) 

3630 IF DLT*1 THEN RETURN;REM Return to DELETE routine, 

3640 AMD*1:REM Set amend flag. 

3650 CLS 

3660 GOSUB 1840;REM Add/Amend data routine. 

3670 PRINTeO,14}"Any more to amend? ( "}Y$}"es, "}N$"o or 
S$j"ucceeding record )"; 

3680 QUERY$*INCH$ 

3690 PRINT@0,14:SPC(60):REM Clear line. 

3700 IF QUERY$*''S" THEN RN*RN+I: RN$*STRI (RN) : GOTO 3610; 

REM Next record & check for last record. 

3710 IF QUERYf="Y" THEN 3500 

3720 (30SUB 2630:REH Sort array if required. 

3730 AMD*0 
3740 RETURN 
3750 REM 

3760 REM****»»******»*****»*****»»#»*»********»»»***»»**»*»** 

3770 REM 

3780 REM DISPLAY DATA IN FIELDS FOR AMENDMENT 
3790 REM 

3800 FOR PN=1 TO 4 

3810 PRINT@20,(PN+2)*2}LPI(RN,PN-1) 

3820 NEXT PN 
3830 RETURN 
3840 REM 
3850 

3860 REM 

3870 REM RECORD HEADINGS 
3880 REM 

3890 IF PAUSE$="M" THEN RETURN 

3900 IF HEAD=1 THEN Y*1:V*43 

3910 IF HEAD=0 THEN Y*8sV*29 

3920 REM Change screen headings positions, 

3930 PRINT@0,Y}"ARTISTS NAME": TAB(21,32); "LP SECT I ON":TAB(35); 

"LP TITLE";TA6(58)i"LP N0.":PRINT 
3940 FOR U*0 TO 23!SET U.VsNEXT 
3950 FOR U*40 TO 59;SET U,V;NEXT 
3960 FOR U*68 TO 83;SET U,V;NEXT 
3970 FOR U*114 TO 124:SET U,V:NEXT 
3980 RETURN 
3990 REM 

4000 REM«•*»***********»*»***#»**»*#»***»#*###»#*»*#******#**#» 

4010 REM 

4020 REM LOAD DATA 
4030 REM 
4040 CLS 

4050 PRINT@4,8}"Are you sure that you have data to load? 

("iYI}"e5 or ''jb:"o)S 

4060 PR I NT@6 ,10 j ^'(I f you have no data press 'N' and use option 2" 
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4070 PR INT@6,11;"from the main menu - }ADD$:"')"s 

4080 REM You can't 'ESC' if you have no data to load! 

4090 QUERY$=INCH$ 

4100 IF QUERY$<>"Y" THEN RETURN 

4110 CLSsPRINTSS,10} "Press ";PY$;'' on cassette and any key to load 
data") 

4120 PAUSE^INCH 

4130 CLS!PRINT@0,10)“ReadinQ in data." 

4140 PRINTjPRINT 
4150 OPEN FILEI,FD$ 

4160 INPUT£ FD$sNLPS 
4170 IF NLPS=0 THEN 4220 
4180 FOR 1=1 TO NLPS 
4190 FOR J=0 TO 3 
4200 INPUT LPKI.J) 

4210 NEXT J,I 
4220 CLOSE 
4230 RETURN 
4240 REM 
4250 

4260 REM 

4270 REM SAVE DATA TO TAPE 
4280 REM 

4290 CLS:PR1NT@0,10) "Press ";PY$j" and '')RD$)" on cassette and any key 
tosavedata"; 

4300 PAUSE=INCH 
4310 PRINTsPRINT 
4320 CREATE FILEI.FDI 
4330 PRINT£FD$)NLPS 
4340 IF NLPS=0 THEN 4390 
4350 FOR 1=1 TO NLPS 
4360 FOR J=0 TO 3 
4370 PRINT LPKI.J) 

4380 NEXT J,I 
4390 CLOSE 
4400 RETURN 
4410 REM 

4420 REMt*##»»»»»»»******»#»»»»*#*#**»»****»##**#»###**»»*»##* 

4430 REM 

4440 REM LEAVE PROGRAM MENU 
4450 REM 

4460 IF NLPS=0 THEN GOSUB 4670:RETURN:REM No data-exit program 
4470 CLS 

4480 PRINT@20,2s"SAVE DATA AND/OR EXIT" 

4490 FOR U=40 TO B2:SET U,41:NEXT 

4500 PRINT@5,6)"SAVE DATA & RESUME PROGRAM": TAB(58) 1" 

4510 PRINT@5,9["SAVE DATA I EXIT PROGRAM";TAB(58))"2" 

4520 PRINT@5,12;"EXIT PROGRAM NOW";TAB(58);"3" 

4530 PRINT@5,15)RMI;TAB(58); "4" 

4540 PRINT@5.18:EC$jTAB(58) 

4550 CALL «<800:REM Border. 

4560 CHOICE=INCH 

4570 IF CH0ICE<!(3I OR CH0ICE>&34 THEN 4560 
4580 ON CHOICE-S(30 GOSUB 4630,4630,4670,4590 
4590 RETURN 
4600 REM 

4610 REM»**»»»*»##*»****»***»***»** 

4620 REM 

4630 REM SAVE 1 RESUME/EXIT 
4640 REM 

4650 GOSUB 4270;REM Save data. 

4660 IF CH0ICE=&31 THEN RETURN:REM Resume. 
4670SEP44;REMRB5tore5eparator. 

4680 CLS 

4690 STATUS=1:REH Set 'WHILE/WEND' flag for exit. 

4700 RETURN 
4710 REM 
4720 

4730 REM 

4740 REM INITIALISATION 
4750 REM 

4760 MAXLPS=300:DIM LP$(MAXLPS,3):REM Main array, 

4770 DIM STACK(20,1),PT$(3):REM Sort arrays. 

4780 DIM ST$(2)!St$(0)="Arti5t":ST$(l)="Section"!ST$(2)="Title" 

4790 STATUS=0sREM 'WHILE/WEND' flag - 0 to repeat - 1 to exit. 

4800 NLPS=0:REM No.of records - (0 until data loaded). 

4810 SEP 59:REM Changes SEParator to ; (, may be used in data) 
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4820 FILE*s'"RECORDS.DAT";REM File name. 

4830 M$=''(Pre95 'M' for main menu)" 

4840 EC#s"Enter choice" 

4850 RM$’="Return to main menu" 

4860 RL$ = ''Pre5s RETURN for more listing" 

IdqS Y$*CHR*(217):N#=CHR#(206):S$=CHR$<211)!ft$=CHR$(193)8TI*CHR$(212) 
4880 PYI*CHR$(20a)+CHR$(204)+CHR$(193)+CHR$(217) 

4890 RD* = CHR$ (210)+CHR$(197)+CHR$(195)+CHR$(207)+CHR$ (210)+CHR$(196): 
REn Reverse video characters. 

4900 lOM 5.0{REM turn off leading spaces (LP No.). 

4910 DIM Pi(4) 

4920 P$(l) = "Artist'5 name > . <■■ 

4930 P# (2) ="Record section > . <’• 

4940 P$(3)="Record title > . <-' 

4950 Pi(4)="0ther information > . 

4960 DIM L(4) . 

aooS nri^ string lengths. 

4980 DIM SNI(4):REM Screen data strings, 

4990 IF PEEK(«t800)=8(21 THEN 5070:REM fl/C data already POKE d 
dc2 2:^800 to !(B25:READ Z$: 2$*="S," + Z$! POKE R, VAL ) : NEXT 
5020 REM M/C data for border. 

§^^§-21}0:F0|11}C0;F5}3E}2B;6|20;77512}23|23;13;13)10|F8;2l5405 
F0jHt7E|J|F0!6i 16)Ej40;77; 12;23) 13; D; 20; FB; 10; F5; C9 ’ ’ ’ 

5050 

5060 REM 

5070 REM DRAW TITLES 
5080 REM 
5090 CLS 

c!SS ESS 2!F0R Y=5 TO 3 STEP-lsSET X,Y;NEXT Y,X 

510J REM 

5120_FpR Xs6 TO 12 STEP 2SF0R Y=41 
NEXT 


TO 9 STEP-liSET X,Y{F0R T=1 TO 2: 


IEXT T Y X ..... .... ..... >w 

5130 ^0^ X3l4 TO 30 STEP 2:F0R Y-41 TO 39 STEP-ltSET X,Y:NEXT Y.X 

5140 FOR X = 14 TO 30 STEP 2:F0R Y = 38 TO 9 STEP-1! SET x'y: RESET 5:^3: 

n b X I I I A 

5160 REM 

l\ll ESS 5*12 IS 2!F0R YMl TO 39 STEP-lsSET X,Y:NEXT Y,X 

5}90 FOR X=40 TO 46 STEP 2:F0R Y=38 TO 9 STEP-liSET X,Y:RESET X,Y+3! 

N b A I T I A 

5220 Rem 

2:F0R Y=41 TO 9 STEP-IjSET X,YsF0R T=1 TO 2; 

Nt X I T , Y , X 

NEXT^T Y TO 74 STEP 2:F0R Y=41 TO 39 STEP-1:SET X,Y:F0R T=1 TO 4! 

5250 f^O^ X = 66 TO 74 STEP 2:F0R Y = 38 TO 25 STEP-1:SET X.Y 

5260 IF Y<36 THEN RESET X,Y+3 
5270 NEXT Y,X 
5280 REM 

NEXT^T^Y^x’'"^^ TO 82 STEP 2:F0R Y = 41 TO 25 STEP-ltSET X,Y:F0R T = 1 TO 4: 

5300 1^0^ X = 84 TO 90 STEP 2SF0R Y = 41 TO 39 STEP-IjSET X.YsNEXT Y.X 

5310 FOR X = 84 TO 90 STEP 2:F0R Y = 38 TO 9 STE^l: SET X^l RESET l\y*Z: 

N t A I I I A 

5360 REM 

?^d2 Ino IS II USE ^sFOR Y=41 to 39 STEP-ltSET X.YsNEXT Y,X 

^=’5 TO 97 STEP 2:F0R Y=38 TO 23 STEP-1;SET x;Y;RESET i.Y+S: 

N b A I I I A 

5430 REM 

dcc 5? X,41sF0R Y=41 TO 9 STEP-1:SET X,Y!lF Y>20 THEN 

Kcb bI X.Y +1 
5450 NEXT Y 

5460 FOR Y=14 TO 10 STEP-lsRESET X,Y:NEXT Y 
5470 FOR X=106 TO 112 STEP 2sSET X,4l:F0R Y=41 
IF Y>20 THEN RESET X,Y+1 
5480 NEXT Y 

5490 FOR Ys20 TO 16 STEP-1:RESET X,Y:NEXT Y 

5500 FOR Y=14 TO 10 STEP-1:RESET X,Y!NEXT Y 

5510 NEXT X 

5520 X»114:SET X,41jF0R Y=41 TO 9 STEP-1:SET X,Y 
5530 IF Y>14 THEN RESET X,Y+1 
5540 IF Y<20 THEN SET X,2 
5550 NEXT Y ’ 

5555 REM 

5560 FOR T=1 TO 3000!NEXT 
5570 RETURN 

5590 REM***»*»*#»*»*#****»*»*»»**»*»#*»»*#*»**»*»#*#«*»»»»###»4 


TO 9 STEP-1:SET X.Ys 
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8255 PROGRAMMABLE PERIFERAL INTERFACE 
BY STEVE PADLEY 

A few months ago whilst on the phone to Dave Parkins I brought up the subject 
of the use of programmable ports. To my surprise (and no disrespect 
intended), he seemed very unenthusiastic about them, in fact quite anti. 

This is a great shame really, after having produced a very versatile computer 
with great potential and then turn away from a very versatile porting system. 
One of the objections raised was the mere fact that you had to program it. 
Well this is neither difficult, lengthy or time consuming and is in tact the 
key to its versati1ity. 

EG. In Basic a simple instruction such as OUT 15,128 
has programmed the 8255 so ports A, B S( C are all basic output ports. (More 
about that later). 

To the home experimenter like myself the 8255 is a very useful tool because it 
is so versatile. It can give you basic input or output ports, a bidirectional 
port with full 'handshake facility and ports A and B as input or output with 
handshake. On the end of it you can stick whatever circuit your experimenting 
with at the time. 

The 8255 is a general purpose I/O port device providing 24 I/O lines divided 
as shown :- 


PORT A 

PORT C 
(upper) 

PORT C 
(1ower) 

PORT B 

2 bits 

4 bits 

4 bits 

8 bits 


There are three modes of operation (selected by a control word) s- 

Mode 0 Corresponding to simple I/O, that is any of the 3 ports can be 
configured as input or output. 

Mode 1 Ports A and B can be configured as input or output, Port C upper 

carries the control signals for Port A 'handshaking', Port C lower 
carries control signals for Port B. 

Mode 2 Configures Port A as a bidirectional I/O port with two way 
'handshaking' via Port C. 

The various modes are selected by placing a 'Control Word' into the control 

register (accessed via the address bus or port location). 

EG. On my board the Control port sits at 0FH (15 decimal). 

Port A 0CH (12). 

Port B 0DH (13). 

Port C 0EH (14). 

Interpretation of the control word register is as follows 


Bit 6 

Bit 5 

Bit 4 

Bit 3 

Bit 2 

Bit 1 

Bit 0 


Bit 7 


! \- 

Mode set flag 
1 * Active 


/ 


Port A ! Port 
Function ! Mode 
1 = Input ! 0 » 

0 = Output ! 1 = 


Determines 
Port A modes- 
00 = Mode 0 
01 = Mode 1 
IX = Mode 2 


Port C 
(upper) 
Function 
1 * Input 
0 = Output 


Port C 
(1ower) 
Function 
1 = Input 
0 3 Output 

Port B 
Function 
1 = Input 
0 ~ Output 


B 

Mode 0 
Mode 1 


So taking the earlier example of OUT 15,128 is sending the value 128 to the 
control register situated at 0FH in the port map. 

In Hex 128 is eOH 10000000 

128 64 32 16 8 4 2 1 


Look at the 8 bit word , compare it to the control word definition and you 
will see that the 8255 is now programmed in mode 0 Ports A. B and C all 
outputs. Simple isn't it, you can output data to any of the three ports. 
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There are two ways of bringing the 8255 into the computer system. 


1. Memory flapping : ” Using all of the address bus. 

2. Port Mapping Using A0 to A7 of the address bus. 


MEMORY MAP 
ADDRESS BUS 


A0 

A1 


9 

8 8255 


A2- 

to— 

A15« 


Decoder 
Networ k 


CS(L) 


A0 and A1 used to 
select which Port 
you wish to read 

I from or write 
to 




PORT MAP 
ADDRESS BUS 


A0- 

A1 

A2' 

to- 

A17- 


Decoder 

Network 


8255 


CS(L) 


A0 and A1 used to 
select which Port 
you wish to read 
Ifrom or write 
to 


Once the Programmable port chip is in operation it allows you the freedom to 
play with various periferals without having to design into the circuit a 
complete address decoding system. This is not only cost effective but also 
allows you more time and space on developing the meat of your circuit. 

So far 1 have used the 8255 with piezo electric buzzers, sound generators, 
motor control through relay circuits, 7 segment displays, micro switches, reed 
switches and so on. Light detectors and heat detectors are next on the list 
along with A to D and D to A converters. Even if you don't like fiddling 
around with hardware there's nothing to stop you using it for a parallel 
printer . 

The 8255 chip is a very handy chip for the home experimenter and to get you 
started here is a circuit that can be used with it. Below is a relay 
controller diagram using a 74LS367 and a couple of BC109 transistors. My 
intention is to use it as a motor controller for a "Turtle" but it does have 
other possible applications, eg. Switching on/off mains powered equipment. 



For simplicity just one relay circuit is shown, but a possibility of six 
relays is evedent, by looking at the chip. The relays used are 5v types with 
lA 250V AC contact rating. (Obtained in Tandy stores). All the other stuff is 
out of the proverbial bit box. The 74LS36/ pins 1 and 15 are taken to 0v to 
permanently enable it. however if you wish to make this into a complete port 
in its own right then an address decoding cct will have to be added, 
(something like that employed by Interak), to provide EN(L) pulse when a relay 
IS to be energised, but note, the 367 is not a latched device so when it is 
disabled all relays will de-energise. 
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^ . My board is constructed with 4 relays on a piece o-f veroboard SGmm x 100mm, a 

_; nice size to mount on a small motorised unit to be computer controlled via an 

umbilical. Two relays will control one DC motor as shown in the circuit 
below. Depending on which relay is energised the direction of rotation is 
decided. Add to this a second DC motor with two more relays and you have 
control for Forward, Reverse, Left, Right and of course Stop, on a motorised 
buggy. 



Anyone wishina for more info on this device, I have the data sheet for it, or 
if anyone wants to build this port I have a design for the Interak prototyping 
board. 

One other point to consider as adantageous is cost. The chip itself can be 
bought for £4.95p and for that modest sum you have a multifunction Port system 
just waiting for simple instructions. 

A light sensor board is now being experimented with, so watch this space. Also 
if anyone is currently working on the same lines as myself I would be happy to 
hear from them. 

STEVE PADLEY, 14 WICKHAM ROAD, FAREHAM, HANTS, P016 7EU. 


CHEMIST 

BY MEL SAUNDERS 
FOR 64-COL XTAL BASIC 

10 T=9:CLS 
20 CLS:Ss0:L»l 

40 PRINTei9,l,''»»»»#***CHEMIST**#»**»*’':PRINT 

50 PRINT ''y6U ARE A CHEMIST OF SORTS YOU COULD DISCOVER SOMETHING' 
GREAT' OR BLOW YOURSELF UP! YOUR THAT SORT OF CHEMIST!!" 

53 PRINTei,6," BUT BEFORE YOU IS YOUR LATEST SECRET?" 

55 iaM4,l:iOM5,l 

60 PRINTSl.G," 2 FORMULAS YOU MUST MIX THEM TOGETHER IN THE RATIO OF 

3parts OF FORMULA'A' TO 7parts OF. FORMULA'S'" 

70 PRlNT81.il," YOUR COMPUTER WILL MEASURE OUT A QANTITY OF FORMULA'A’ 
AND... ASK YOU TO ADD A QANTITY OF... FORMULA'S'" 

75 FORT-TTO0 STEP-liIF T«0 THEN 310 
70 PRINT80,17," 

79 PRINTe27,22," 

80 PRINTSl.lS,^ then waite and see! you have"T"lives left " 

85 REMiCALCALATE FORMULA RATIO 

90 A«INT(RND(25)+i)iW«7iA/3 

100 PRINT82,20,"HERE IS"jA:"CC OF FORMULA'A'"iPRINT 
110 PRINTe2,22,iINPUT"H0W MUCH FORMULA'B'TO ADD "|R 
120 D»ABS(W-R) 

125 REMiCALCALATE DIFFERANCE 

130 IF D>W/20 THEN 300 

140 S»S^liX»S 

150 FMT0,2 

160 IF Ds0 THEN 200 

170 IF D>0 AND D<=.6 THEN 220 

180 IF D>.6 AND D<>1.2 THEN 240 

190 IF D>1.2 THEN 260 

200 PRINT92,17."THAT WAS A VERY GOOD BIT OF MATHS DEAD ON THE DOT!" 

210 FORQ»1TO2500:NEXTQ:GOTO280 

220 PRINT92,17,"A GOOD CACULATION OF W*A*7/3...BUT YOU WERE"D"CC OUT" 
230 FORQ«lTO2500iNEXTQiGOTO 280 

240 FMT1,2{PRINT82,17."AN AVERAGE GUESS! I SUPPOSE GUT BE VERY CAREFUL 
YOU COULD LOSE YOUR LIFE "D"CC OFF!!" 
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250 FORQ*'1TO2500:NEXTQ:GOTO280 

260 FMTl,2jPRINTe2,17,"Y0U ARE BETTING VERY SLOPPY OUT BY"D''CC,D0 YOU 
WANT TO dIE" 

270 FORQ=1TO2500!NEXTjQOTO280 
2B0 FMT0,0:NEXTT 
290 GOTO 310 

300 PRINT@2,17,"SORRY YOU BLOW IT YOU HAVE LOST"L"LIVES":L«L+1: 
FDRQ=1TO25005NEXTQ:GOTO 280 

310 CLSiPRINT@l,i3,"YOU HAVE RAN OUT OF LIVES! YOU LOST"L", 

AND SAVED"S"LIVES!IF L>S THEN 330 
320 IF L<S THEN 350 

330 PR1NT01,16,"as you lost too many lives this computer is calling 
an END to this experiment before you! kill us both^' 

340 END 

350 PRINT@2,16,"not a bad attempt you saved... over half your lives 
360 PRINT010,1B," OPTION-risk them again (Y/N)";}SWAPX,T 
370 F = INCH:IF F«89 GOTO 20:IF F089 THEN END 
375 REM 

380 REM »»»»#»**»»****»*#*** 

390 REM * COPYRIGHT * 

400 REM * MEL SAUNDERS 4/84* 

410 REM s******************* 


SPACE INVADERS V2 
BY SIMON WALLER 
SPECIAL SOUND EFFECTS 
BY MEL SAUNDERS 

For a 64 character VDU-2K. This excellent arcade style program has been 
enhanced with sound effects for the various hits and oangs that create the 
realism factor. Please advise the newsletter of your highest score. 

Execute by typing E 1000 
< key moves the laser gun left 
> key moves the laser oun right 
Space bar to fire the laser 
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contact Mel 
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He will 

advise the 
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; service 
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phone. 
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page 
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his address 
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car 

1 provide 

programs 

to 

develop your 

own 

sounds. 
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FF 

FF 

FF 

01 

05 

06 

lA 

07 

C0 

08 

10 

09 

10 

0A 

10 

0C 

40 

0D 

00 

D9 

21' 

00 

17 

06 

10 

0E 

C2 

ED 

A3 

0E 

C3 

ED 

A3 

20 

F6 

D9 

■2B 

36 

20 

C9 

FF 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

01 

P 

06 

00 

07 

00 

08 

00 

09 

00 

0A 

00 

0C 

00 

00 

00 

D9 

21- 

00 

18 

06 

10 

0E 

C2 

ED 

A3 

0E 

C3 

ED 

A3 

20 

F6 

D9 

21 

00 

00 

C9 

FF 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

01 

00 

06 

00 

07 

00 

08 

00 

09 

00 

0A 

00 

0C 

00 

0D 

00 

D9 

21 

40 

18 

06 

10 

0E 

C2 

ED 

A3 

0E 

C3 

ED 

A3 

20 

F6 

09 

21 

A8 

16 

C9 

FF 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


HANGMAN 
BY PETE VELLA 
ZYBASIC 32 COL SCREEN 

1 REM *»*»#■***#**»*»*»»*#**»****» 

2 REM *HA'NG MAN(ENGLISH VERSION)* 

3 REM * BY P.VELLA * 

4 REM *»»««*»»***»»«*»*«»*»*»**»» 

7 DOFF;PAGE:FOR S* 1 TO40: 8 (S) =^0: N. S 

9 CLS:G=0 

10 GOS.310 
15 GOS.330 
20 GOS.350 
25 GOS.370 
30 GOS.390 
35 GOS.410 
40 GOS.430 

45 LlNE6iP.TABI9)"Play Hang Man" 

50 FORW»1TO2500jN.W 
60 CLS!LINE12?P.TAB(14)"Hello" 

65 LINE 14;P,TAB(7)"What is your name?" 

70 NI=IN. 

75 GOS.500 

77 FOR Q=lT0LEN(B$);@(40+a)s0:N.Q 

80 CLS!E=0:K=0:G=G+1 

81 IFG»40G.9 

82 IF LEN(N$)>20Q.90 

84 T=INT((32-(ll+LEN(N$)))/2) 

85 LINE4:P.TAB(T)N$,"the word is" 

90 GOS. 550 

95 LINEB:P.TAB(7)"Choose a letter" 

97 LINE21sP," (Press control c to end game) 

100 INK, L:IF L=0G.100 

101 IFL«3 G.200 

102 L=L+£20 

103 0=0 

105 FOR S=1T0 LEN(B$) 

110 IFL=PEEK(£81FF+S);G.140 
115 N.S 

117 IF 0=0 E=E+lj8OS.305 

118 IFE=7Q.196 
120 G.100 ' 

140 0=l:POj<E H+S,L 

142 8(40+S.t«l 

143 Q=0 . 

144 FOR Ll=lTDLEN(B$):IF@(40fLl)=0Q=l 

145 N.Ll 

147 IFQ=0G. 190 
150 N.S 
155 G.100 

190 FOR F=lT05:LlNE2l!P.TAB(15)" " 
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192 FOR W=1TO500jN.W 

193 LINE21iP.TAB(10)"That B gooQ" 

194 FOR W=1TO500:N.W 

195 N.FjG.75 

196 FOR F = 1T05}LINE21:P.'' ":F0R W«1TO500:N.W 

197 LINE21:P.TAB(INT(I32-LEN(B$))/2))B$:FORW«1TO500jNEXTW:NEXTF 

198 G.75 

200 SCR0LL:LINE1:D0N:CLS. tS. 

300 REM HANG MAN 

305 ONE GOS.310.330,350,370.390,410,430 
310 FOR X=25TO40:SET(X,l0) 

320 N.XiR. 

330 FOR Y*10Ta30:SET(25,Y) 

340 N.YtR. 

350 FOR X=25TD37:SET(X,30) 

360 N.XiR. 

370 P0KE£F132,24:P0KE£F152,24 
380 R. 

390 P0KE£F172,£4F 
400 R. 

410 P0KE£F192,26:PQKE£F191,25 
420 POKE£F193,25jR. 

430 P0KE£FlBl,£2F:PaKE£FlB3,£5C 
440 R. 

500 REM FETCH NORO 
510 P=RNDM0)tIFe(P)*lB.510 
515 e(P)»l 
520 RESTORE 

525 FOR P1=1T0P:READ BliN.Pl 
530 R. 


530 R. 

550 REM DRAW DOTS 
560 FOR 2=1T0 LEN(B>) 

565 H* £F0AE-INT((LEN(B»)/2)) 

566 P0KEH+Z,£2D}N.Z 
570 R. 

1000 DATA "walk”, "black", "fish",''loop", "move", "house", "door", 
"briet","phasB",nnew", "object", "young" 

1010 DAiA "recent","11vely","sugar","depot","court","lady","gi 
"spedal","cher’,"health"."table","battery","entry"."pupils", 
1020 DATA " paper \ "peoples "year", "area", "contact'', "punk ","coi 
"game" 


house","door","stone","Ian 

y","guide","happy 
llB","mayor","amo 
" "concert","piay 


LETTERS 

Please write with comments, ideas,, complaints and sugoestions. Name and 
address must be enclosed, but can be witn-held. Responsibility Tor views and 
comments expressed cannot be held by the editor as members letters are 
published with the minimum changes (deleted bad language etc). (Note) I type 
what I see, if you forget a word then it will be missing in the newsletter, 
also if you spell a word wrong then it's quite likely that 1 will punch it in 
wrong.) 


Dear Ed, 

Not long ago 1 completed the VDU-2K modifications, with due regard to 
David Parkins commentary which was helpful!. Imagine my consternation when I 
got 12 lines of 64 characters followed by 12 lines of garbage. You of course, 
would have concluded that a number of alterations to ZYMON 2 were needed. It 
took me lomger to catch on though! First I had to go through a lot of 
carefull checking that the hardware was not at fault, and after that a deal of 
rather slow cerebration. 


So my first complaint is: I do think you might have drawn attention to the 

software aspect of the modification. 

My second complaint is i Having got Zymon to work I used it to load ZYBASIC 
and that gives the same symptoms! Two program lines per screen line over the 
top half of the screen and anything that Zymon has left over the other half. 
Well, in the Zymon case I had the listing and could work it out. But in the 
ZYBASIC case not so, since the excellent manual does not go so far as to list 
the program. 

So my plea! Please advise with all reasonable haste what has to be done to 
make ZYBASIC produce a sensible 64x24 display. Surely the question has come 
up before this? 

A.6.BOGLE, 22 BRIGHTON RD, PARNELL, AUCKLAND, NEW ZEALAND. 

(ED - Both ZYMON and ZYBASIC owners can get converted software from Greenbank 
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Electronics. They only charge the postage, packaging and copying costs. All 
new software is written Tor both Tormats, but very soon now only the 64 by 24 
format will be needed, as the new VDU card becomes available.) 


Dear Ed, 

Thank you for publishing my letter in IUGN-8. Since writing the 
letter however, the information I gave in the letter is now incorrect. My 
address has changed, and the Unicom Modem now looks suspiciously like a DEMON 
modem, it's cost is more, and it's not BABT approved! 

Please would you include my new address in the next issue of lUGN to avoid any 
mail going astray. Finally would you ask anyone interested in instigating a 
modem group for the INTERAK to write a letter to me, explaining what they 
would want from such a group, if they have anything to contribute to the 
hardware or software also it would be heipfull if they would enclose a stamped 
self addressed envelope so that I can reply. 

If we manage to get a group sorted out I will keep the lUGN up-to-date with 
developments. 

ST EVE BRUMBY, 28 HARTINGTQN TERRACE, BRADFORD, WEST YORKSHIRE, BD7 2HM . 

Dear ED, 

With reference the VDU-2K mod, everything is now OK. I had lost my 
way on the non-socket side of the board, and made an incorrect connection. 
The mod works fine, thanks, and Greenbank will be updating Zymon 2 for me. 

is there anyone out there with an interest in digital synthesis of organ and 
synthesiser music?. I have recently traded in my old electronic organ, and 
possesses, amongst other things, a pair of sockets labled 
MIDI IN and NIDI OUT. This I understand means Music Interchange for Digital 
Instruments and apart from plugging in a synthesiser or something it sounds as 
if it would link to a computer:, (I wonder what music looks like). So far I 
have not been able to track down any information, except that it does exist. 


I also have a part built, part working, Analog Synthisiser, that I will now 
want to re-build but this time by using digital techniques, so, if there's 
anyone with similar interest who would like to communicate, I should be most 
gratefull. My system is Interak 1 with 64k memory, Bob's modified VDU-2K, a 
paralled port cum printer port, and soon to oe added, a serial port, 
(currently at the ideas stage). Anyone who can direct my heading in the MIDI 
direction would ensure my eternal gratitude. 


Another future project would be a Gold or Prestel link up, and while on the 
subject does anyone think the club might benifit by becoming a subscriber and 
thus provide a data base, notice board, what have you, and provide another 
useful job for our hard working systems to do. 1 guess for this to be a 
success there would need to be some agreed standard. Perhaps the experts will 
be able to guide us. 

ROY HARRISON, 102 HESTON ROAD, HESTON, MIDDLESEX, TW5 OOP. 



(Ed. David Parkins of Greenbank has asked me to include the next letter sent 
to him as he feels Chris deserves the right of reply to his earlier comments.) 
Dear David, 

A few more words on the addition of an opto-isolator to the LKP-l. 

, you may recall I modified my board to allow the use of a long unscreened 
keyboard cable. It enables even self scanning keyboards to be used without 
spurious pulses being introduced onto the strobe line from adjacent data 
lines. 

■Might I add a few notes in reply to your discussion of the circuit. 

(A) The positive supply to the 'diode' part of the opto-isolator is applied at 
the keyboard end. Since the strobe signal into the LkP- 1 is now on a balanced 
pair induced signals from the data lines are effectivley cancelled out. 

(B) A Ik resistor results in a diode current of around 4ma so avoiding excess 
current in a CMOS driyer. Although the RS-307-979 has a quoted current 
transfer ratio of 20'/. minimum I have found typical values of l00'/, or so. In 
fact the quoted maximum is 3007. the resultant strobe signal has therefore been 
less than 0.8v for a logic 0. In a production situation it would be wise to 
use the darlington version to garantee a 300X transfer ratio. 

<C) As you advise, it is good practice to aim for a fast rise time. 
Fprtunatly in the case of the 74LS273 we can dispense with this requirement as 
the clock input is level sensitive and the set up time is not critical. 

It goes without saying that, like other Interak boards the LKP-1 is ideal for 
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this sort of experimentation, especially when tailor-made systems are required 
to an unusual specification! 

CHRIS DAVIS, 35 LAVEROCK AVENUE, HAMILTON, LANARKSHIRE, ML3 7DD. 


Dear ED, 

May I express my thanks to Greenbank for donating the SIO-4 board which 
I have won. I have many ideas for using this board but the one I am most 
interested in is to use it in conjunction with a modem to talk to other 
Interak owners. 

I work in the datacomm field (it gets wet sometimes) and am most 
fortunate to be very interested in communications generally so therefore 1 
feel a certain responsibility in starting the ball rolling. 

The most important point though is that the more playing this game the 
merrier (unless you've got your own supply of scotch) so anything that I 
suggest is exactly that. A suggestion. 

To get to the point then I think that the 300 baud (that how fast they go. 
i.e. not very) modems are the easiest and cheapest to obtain. 

Software i- We would have to write our own. There are probably commercial 
programs availible but they would have to be altered and I would like anyone 
with an Interak-1 (^SIO-4 + modem) to be able to join in. The above two 
things i.e. modem and software would have to Be the same for everyone 
otherwise the computers just would not talk to each other. 

The most Important thing to consider though is what do we hope to 
achieve at the end of it all. What do you interakers want? Would you like 
to exchange programs over the phone? Would you like to leave messages for 
someone? 

One thought that I had is for a database e.g. programs, ideas, messages 
(sounds like a newsletter) to be on one Interak which everyone would ring 
instead of everyone ringing each other. This though presents more practical 
problems than meets the eye. Who would the unlucky person be who cannot 
play on his Interak cos everyone else wants to access it? Who would be the 
unlucky person whose phone would be jammed with fellow Interakers. The 
software would need to be far more sophisticated. If you think I'm painting 
a black picture you are right. But don't be depressed I'm just pointing put 
problems which although can be easily overcome need to be thought out. It's 
nke I said earlier if we all go the same way with hardware and software 
then it will be much more fun. 

I'm eager to see what every one else thinks and very open to suggestions (so 
my wife tells me) I'm also very keen to put in some work in on this, so if 
anyone else is interested let me know. Some of you out there may be 
already talking to each other and not letting me in on it. If you are, 
please get in touch before my bottom lip hits the floor. 

Also I am a dungeons and dragons player (brieflyj a character role 
playing game where running a sword through a dragons eyeball is allowed- if 
you can run fast enough that is) is there any D+D interakers out there? 
Anyway I must go now as it is well past my bedtime so my thanks again to 
greenbank and 1 hope to hear from someone soon. 

DAVE GORDON, 40 K1RK5T0NE ROAD, WEST LITHERLAND, MERSEYSIDE, L21 0EQ. 

Dear Ed, 

The Finger on the pulse 

Well! thats what I feel like sometimes being in contact with quite a number of 
members, mostly by P.C. Tapes. I often hear what members are doing or hoping 
to do with there Interaks. 

Resently I heard a few moans and groans mostly regarding the lack of software 
in Interaktion, and thin copies (20 pages) some even said not worth the 
subscription?? 

I perhaps wrongly tackled David about this and some very very 
interesting facts came to light! 

Only about 50'/. of members have ever paid any subs. 376 x subs of £7.00p 
Upprox) - £2600.00p sounds a lot but is more like £1295.000 in real terms. 
As far as value for money go's cost for issue No 8 are PRINTING £937,00p and 
POSTAGE ETC £79.80p,.. with a grand total of approx £6500.00p to date. So for 
those who ask where do all the subs go?... not far enough!! 
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Interaktion seems a very democratic paper, Pete and Bob have said in the past 
they will do whatever the majority wane!.I 

Lets put it to the vote what do we want? 

Software well I think some of you out there should give it a try and send your 
own programs in. you could win a prize, at the minute there's more prizes chan 
competitors (well just about). 

Hardware well I'm working on a real time cloc1< using a MC146B18 or a HM58274 
(not 58174) anyone seen a MH58274 advertized for sale!, 1 would also like to 
see proper PCB's produced for the PS6 and PC6 designs. But you can build 
these on the DIP card like I did! if you want sound and programable 
characters? 

Me have such a range of users in our group, CP/M users, starters, machine code 
wiz kids, and perhaps a few robots or buggies out there! Some of us may never 
get around to CP/M or disk (PETE - what about XTL disk version). Modems are 
of limited interest to me mainly as we have no phone, but it don't stop me 
from reading how they work. 

I did want to get a DATA BANK going ie. a collection of all data sheets on all 
kinds of chips we could use on Interak, so if you can send me photocopies of 
any you have it could be usefull to others, I have a lot on Ferranti A-D/D-A, 
also Nat-Semi's. 

1 would be very thankfull for any help anyone can give me with the Eprom 
programmer, I have got this working OK, but nave lots of TMS2532 4K Eproms and 
need pin and programming details, or I would swap for 2716 2K... 

Lastly drop me a line, say what you think! 

MEL SAUNDERS, 7 DRUMCLIFF ROAD, THURNBY LODGE, LEICESTER, LE5 2LH. 


Dear Sir, 

Exponentation 

I have always had reservations about the program given on page 14 of U6N-2, 

because it is some distance from being exact when the value of X is small. 

Eg. it gives EXP(0.00234) as 0.994418 instead of the correct value of 1.00234. 

I attach a listing which takes up a bit more memory space but has the 
advantage of being much more nearly exact. It has the limitation of not 
accepting X values above 88, but that does not, to me, seem serious, since 
EXP(88) IS 1.6516 x 10^38. Anyway the other program has the same limitation. 

By analogy perhaps we should includei SIS IF X > 88 P.‘'OVERFLOW"iS. 

If included in a program it would of course be entered at line SIS and exited 
with a line 630 E » X3i RET. 

My natural logarithm routine, also by summation of a series, gives also a 
pretty precise evaluation, as does that on the same page of UuN-2. However, 
the latter has the limitation of not accepting inputs above 524000, whereas 

mine accepts up to 10'''38, for whatever use that may be! On your spaceship, 

perhaps! I can send it later if you in your wisdom, (Edt gulp), think it of 
interest. 

500 REM SUBROUTINE TO CALCULATE EXP(X) 

510 IN. "ENTER OPERAND X" Xi X5=X 

520 X9«05 X8*0: IF X=0 X3=1j G.620 

530 IF X<0 X = -X: XB^^l 

540 IF X>1 X=X/2: X9=X9+1: G.540 

550 IF X*1 X3«2.710202{ G.610 

560 REM X NOW IS BETWEEN 0 AND 1 

570 X3*l+X: X4=X: Xl=8i X2»2 

580 X4=X4*X/X2: X3=X3+X4 

590 X2=X2 + 1} Xl = Xl-l: IF X1>0 B.58.0 

600 IF X9«0 G.620 

610 X3«X3*X3s X9=X9-ls IF X9>0 G.610 

620 IF X8=l X3=l/X3 

630 P."EXP(",X5,")=",X3i -RET. 

A.8.BOGLE, 22 BRIGHTON ROAD, AUCKLAND 1, NEW ZEALAND. 
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INTERAKTION BOOK LIBRARY 

This section is to give members access to a wide range of books on computing 
and electronics. 

The only cost to the member is that of postage. 

Books may be borrowed for up to 4 weeks. 

At present the books available are 

LANGUAGE BOOKS 

TRS 80 Assembly Language Programming ... Radio Shack 
280 Assembly Language rrogramming Manual.Ziloo 

A Course in Basic Programming . Sinclair 

Making the Most of your ZX 80 . Tim Hartnell 

30 Hour Basic . C.Prigmore 

Basic for Home Computers .. B.Albrecht, L.Finkel If J.Brown 

Course in Standard Coral 66 .. J.D.Halliwel h T.A Edwards 

Simple Pascal . J.McGregor it A.Watt 

Lecture Notes in Computer Science 

Pascal User Manual and Report . K.Jensen & N.Mirth 


DATA BOOKS 

Mostek 1982/1983 Microelectronic Data Book(me.m/CPU/Per) .. Mostek 


Memory Data Book & Designers Guide 1980 .. Mostek 

Bytewyde Memory Data Book 1981 .... Mostek 

National Semiconductor Memory Data Book (1980).. National 

National Semiconductor Interface Data Book ( 1980... National 

TTL Data Book ... National 

The European Selection (mem/inface/1in) . Motorola 


GENERAL it ELECTRONICS 
Computer Technology for Technicians 

and Technical Engineers Vol. 1 ... R. Watkin 

Electronic Computers Made Simple . H. Jacobowitz 

Test Instruments for Electronics 

(how to build test instruments) . M. Clifford 

Practical Test Instruments You Can Build ... W. Green 
How to Troubleshoot & Repair 

Electronic Test Equipment ... M. Horowitz 

Computers and the Social Sciences . A. Brier it I. Robinson 


MANUALS etc. 

Epson MX-80 Type II Operation Manual . Epson 

Newbury 8000 Series VDU Terminal 

Operator Instruction Manual ... Newbury Labs 

Electronics Projects Index . Polytechnic 

Why Do You Need a Personal Computer? .. Leventhal Jt Straffars 

Computer Programming in the Classroom . B.J.Jackson 

TABS Accounting Business Systems User Guide Vol 1. TABS 
Easy Add-on Projects,Spectrum,ZX-81,Jupiter Ace .. Owen Bishop 
6502 Games .. Rodney Zaks 

All books have been donated by users. If you have any books etc. surplus to 
requirements please let me have them. 

See Contacts page at the end of this issue for "BOOKS" address. 

Richard Bowyer 
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SOFTWARE 

See CONTACTS page at the end of this issue for "ORDER FROM" addresses. 

Software supplied is the responsibility of the "ORDER FROM". Please deal 
direcUy with the "ORDER FROM" in the event of bugs ect. 

You may use this section to sell software to other users. Send a brief 
description of your product giving details of its distribution and price, to 
the EDITOR. 

Note that you will be responsible for the support of your own product. The 
newsletter cannot be held responsible for or get involved with duff code or 
distributers. 

Of course we will publish letters deriding any product that fails to live up 
to its claims. 


MACHINE CODE 


NAME 

DESCRIPTION 

VDU 

ORDER FROM 

COST 

ASM 64 

EDITOR ASSEMBLER 

C 

USER GROUP 

£ 5.00 

FIGFORTH 

FORTH COMPILER 

A,C 

USER GROUP 

£15.00 

HC DISASS 

SIMPLE DISASSEMBLER 

A 

USER GROUP 

£ 3.00 

INTERPLAY 

BULLETIN BOARD DRIVER 

C 

M&M ELECTRONICS 

£ 4.00 

MEGABUG 

DEBUG/TRAINING PACKAGE 

C 

USER GROUP 

£13.00 

RAKOVSKY 

COMPUTER CHESS (6 LEVS) 

C 

USER GROUP 

£ 5.00 

REVAS 

BETTER DISASSEMBLER 

A 

USER GROUP 

PDA 

VELTEXT 

TEXT EDITOR 

A,C 

USER GROUP 

£ 5.00 

XTAL BASIC 

14K BASIC 

A,C 

A 

USER GROUP 

£40.00 

ZYBASIC 2A 

INTERAK BASIC (TAPE) 

GREENBANK 

£15.95 

ZYBASIC 2C 

INTERAK BASIC (ROM) 

A 

GREENBANK 

£27.75 

ZYBASIC 3A 

INTERAK BASIC (TAPE) 

C 

GREENBANK 

£15.95 

ZYBASIC 3C 

INTERAK BASIC (ROM) 

C 

GREENBANK 

£27.75 

ZYMON 2.V003 

INTERAK MONITOR 

A 

GREENBANK 

£15.95 

ZYMON 2.V203 

INTERAK MONITOR 

C 

GREENBANK 

£15.95 


ZYBASIC BASIC 




NAME 

DESCRIPTION 

VDU 

ORDER FROM 

COST 

AVALANCHE 

GAME 

A 

USER GROUP 

PP 

COUNT 

LEARN TO COUNT 

A 

USER GROUP 

PP 

DICE PONTOON 

GAME 

A 

USER GROUP 

PP 

GRAPH 

GRAPH PLOTTER 

A 

USER GROUP 

PP 

HAPPY SUMS 

FUN MATHS 

A 

USER GROUP 

PP 

HANGMAN 

SPELLING GAME 

A 

USER GROUP 

PP 

MONSTER MASH 

GAME 

A 

USER GROUP 

PP 

NOUGHTS & CROSSES GAME 

A 

USER GROUP 

PP 

POOLS PICK 

RANDOM DRAW SELECTOR 

A 

USER GROUP 

PP 


XTAL BASIC 
NAME 

DESCRIPTION 

VDU 

ORDER FROM 

COST 

AWARI 

GAME 

C 

M.SAUNDERS 

PP 

BIORYTHMS 


C 

M.SAUNDERS 

PP 

CHAR DES 

CHARACTER DESIGNER 

C 

M.SAUNDERS 

£ 5.50 

CRAZY MAZE 

GAME 

C 

USER GROUP 

PP 

I-SPY 

GAME 

C 

M.SAUNDERS 

PP 

LANDER 

GAME 

C 

USER GROUP 

PP 

SOUND DEV 

SOUND DEVELOPMENT 

C 

M.SAUNDERS 

£ 5.50 

TOWERS ' 

GAME 

C 

USER GROUP 

PP 

Key: A = 

C « 
PP 

32x24 VDU-K, 

64x24 VDU-2K, 

» Postage & packinc 

}. Send no 

money, you will 

be billed 

POA 

- Please enquire (f 

*hone for price.) 



24 






Interaktion User Group Newsletter 


Number 10 - January 1986 


Z80 assembler, Runs at 1000H. Printer output at ports 6 and 7, tape at ^ 
and 5. Uses the Mostek standard assembly language syntax. Supports the 
additional operators END,DS.DW,DB,EQU,ORG and LOAD. Full line editor with 
dynamic line renumbering. Programs may by assembled to memory to run at a 
different location. Manual included witn package. 

USER GROUP, £5.00p, Machine code, Needs Zymon. 


Bulletin board software package. The program tests for the physical top ot 
memory and allocates all unused memory above 1A90H as a buffer for incpmino 
text. It also tests for the VDU-xK screen width and adjusts itself 
accordingly. There are two versions on the distributed tape, one for the 
standard SI04 serial card using ports 2 & 3, the other using the Zymon 
cassette port allocation and the DTI card hardware. The DTI card must be 
modified to allow operation and drawings showing the detail distributed 

with the program. There are no major changes to the card, two IC s added in 
the patch area with some discrete components, all connections to the existing 
DTI card being made via the existing pin assemblies. Supplied j, 
tape, Manual, Quick reference card, Constructional notes for DTI MM1&2, Parts 
list for DTI MM1&2. 

M Si M ELECTRONICS, £4.00p, Machine code, tape, Needs Zymon. 


M&unvww 

Megabug is an interactive machine code debugging tool, allowing single step 
progress through a program whilst observing the Z80 register set at each 
instruction. It can debug Rom or Ram held code. A program being run under 
Megabug can be interupted by pressing the space bar to get a register display 
followed by single stepping to let you find the problem or examine the actions 
of the computer. Runs on the standard Interak with a VDU-2K screen, occupies 
Ram B000H-BBE2H. Screen active programs can be examined as Megabug maintains 
its own internal screen. , ..... ^ , 

USER GROUP, £i3.00p, tape, Machine code, VDU-2K only, needs Zymon. 


nnwisuvanii , . . . . > • i xu.. 

Chess program to allow you to play chess from levels 1 to 6 aoainst the 

computer. The program provides for a full on screen prapics display of the 
chess board, a list of moves, the computers opinion of the current game leader 

and a deadmen men display. The graphics are provided by plugging a ROM into 

the VDU card second ROM socket. Castleing and en-passant are both fu ly 
supported and the king falls over when mated. 64 character screens only. 
American move notation. 

USER GROUP, £5.00p, Machine code, tape and Rom, Needs Zymon. 


Dis-assembler or reverse-assembler which is an implimentation of a program 
called REVAS written by David Parkinson adjusted to operate on the Interak 
computer. It is an interactive program capable of producing source programs 
in several forms. The dis-assemb1er also recognises three special 
instructions which are used in Nascom software. The program is supplied on 
tape and occupies memory from C000H to CDBEH. Versions assembled to different 
addresses can be supplied. Dynamic lable allocation is a special feature or 
the dis-assembler. A full manual is provided with the package. 

USER GROUP, £price on application, Machine code, Needs Zymon. 


AIHLDHOlb j-j, 

16k interpreter basic for the Interak computer. User defined reserved 
facility. Full screen editor. Program chaining. Named tape files. Five letter 
variables allowed. Integer and floating numbers. String variables and 
arrays. Bit manipulation. Line editor. Direct port access. Print output 
formating commands. Machine code linkage. Chunky graphics commands. 
Provided on tape with the possibility of an upgrade to disk working in tne 
future. Proffesional1y produced manual included. Versions for both screen 
formats. Supplied by tne user group under licence from Crystal Research ltd. 
USER GROUP, E40.00P, Machine code. Needs Zymon. 


ZYBASIC 

6k floating point basic. Programs may be stored on tape. Two versions exist, 
one is tape loaded at 2400 Baud (305ecs) and runs at A000H, the other is in 
ROM and runs at C000H. Floating point arithmetic from +-1.5 x 10 -39 to 
xl0''+38, hexidecimal input, Pixel graphics Set, Reset and Point operate with 
VDU chunky graphics, 260 Numeric variables, 26 Strino variables up to 255 
characters, built in printer driver. Versions for both VDU screen formats A 

GREENBANK, £15.95 tape, £27.75 Rom, Machine code, Needs Zymon. 
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CONTACTS 

BACK ISSUES... D.Parkins, Greenbank Electronics, 92 New Chester road, 

New Ferry, Wirral, Merseyside, L62 SAG. 

BOOKS. R.E.Bowyer, 45 Ford drive, YarnTield, Stone, Staffs. 

BULLETIN BOARD Software and services to the Interak computer. 

M !< M Electronics, 8 Ayre View, Bride, Isle of man. 

DATA SHEET DATA BASE .. Swop, borrow, lend, chip data sheets 

7 Drumcliff road,Tnurnby Lodge, Leicester , LE5 2LH. 

EDITOR. R.Eldridge, 28 Wycherley Close, B1ackheath , London,SE3 7QH. 

GREENBANK .... Greenbank Electronics Ltd, 92 New Chester road, 

New Ferry, Wirral, Merseyside, L62 SAG. 

M. SAUNDERS ... M. Saunders, 7 Drumcliff rDad,Thurnby Lodge,Leicester,LE5 2LH. 

M!iM ELECTRONICS, 8 Ayre View, Bride, Isle of man. 

MEMBERSHIP.... P.P.Vella, 19 Ford drive, Yarnfield, Staffs. 

POINT CONTACT TAPES..Contact and communicate with other members by cassette 

tape. Point Contact tapes,7 Drumcliff Rd, Thurnby Lodge, 
Leicester, LE5 2LH. 

SUBSCRIPTIONS. P.P.Vella, 19 Ford drive, Yarnfield, Staffs. 

USER GROUP ... P.P.Vella, 19 Ford Drive, Yarnfield, Staffs. 


FOR SALE 

3 MXD2 16k Dynamic Ram cards £11.00p each. D.L.G.Mason, 8 Ayre view, 
Bride, Isle of man. 
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